
(defvar l)

(defun tt (ll)
  (pop l))


(setf l `(+ 1 (- 2 3) 2 3 4))

(print l)

(tt l)


(print l)